data(eusilcS)
data(totalsRG)
inp <- specifyInput(data=eusilcS, hhid="db030", hhsize="hsize", strata="db040", weight="db090")
## Not run:
# ## approx. 20 seconds ...
# addWeights(inp) <- calibSample(inp, totalsRG)
# ## End(Not run)
Run the code above in your browser using DataLab